﻿module Program

open Parser
 
//testParse "123"
//testParse "1"
//testParse "5"
//testParse "abc"
//testParse "aaa"

//let  (Character myChar) = "a"
//printfn "%O" myChar


//val ( |Even|Odd| ) : int -> Choice<unit,unit>
//val testNum : int -> unit
 
//> testNum 12;;
//12 is even
//val it : unit = ()
 
//> testNum 17;;
//17 is odd
;;